/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / egg / egg-jisx0201.elc.z / egg-jisx0201.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 38 3a 34 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:48:45 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 67 67 2f |s-20.3/l|isp/egg/|
|000000a0| 65 67 67 2d 6a 69 73 78 | 30 32 30 31 2e 65 6c 0a |egg-jisx|0201.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 65 67 67 |    (err|or "`egg|
|000001f0| 2d 6a 69 73 78 30 32 30 | 31 2e 65 6c 27 20 77 61 |-jisx020|1.el' wa|
|00000200| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|00000210| 6d 61 63 73 20 32 30 22 | 29 29 0a 0a 28 6f 72 20 |macs 20"|))..(or |
|00000220| 28 62 6f 75 6e 64 70 20 | 27 63 75 72 72 65 6e 74 |(boundp |'current|
|00000230| 2d 6c 6f 61 64 2d 6c 69 | 73 74 29 20 28 73 65 74 |-load-li|st) (set|
|00000240| 71 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |q curren|t-load-l|
|00000250| 69 73 74 20 6e 69 6c 29 | 29 0a 0a 28 72 65 71 75 |ist nil)|)..(requ|
|00000260| 69 72 65 20 27 6d 75 6c | 65 29 0a 3b 3b 3b 23 23 |ire 'mul|e).;;;##|
|00000270| 23 63 6f 64 69 6e 67 20 | 73 79 73 74 65 6d 3a 20 |#coding |system: |
|00000280| 65 73 63 61 70 65 2d 71 | 75 6f 74 65 64 0a 0a 28 |escape-q|uoted..(|
|00000290| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 88 c2 |byte-cod|e "..!..|
|000002a0| c3 21 88 c4 c5 21 ac 82 | c6 15 c5 1b 0e 07 42 16 |.!...!..|......B.|
|000002b0| 07 c4 c8 21 ac 83 c9 16 | 08 c8 1b 0e 07 42 16 07 |...!....|.....B..|
|000002c0| c4 ca 21 ac 83 cb 16 5c | 6e ca 1b 0e 07 42 16 07 |..!....\|n....B..|
|000002d0| c4 cc 21 ac 86 cd 1b 0e | 5c 6e 73 16 0c cc 1b 0e |..!.....|\ns.....|
|000002e0| 07 42 16 07 c0 87 22 20 | 5b 72 65 71 75 69 72 65 |.B...." |[require|
|000002f0| 20 65 67 67 20 70 72 6f | 76 69 64 65 20 65 67 67 | egg pro|vide egg|
|00000300| 2d 6a 69 73 78 30 32 30 | 31 20 62 6f 75 6e 64 70 |-jisx020|1 boundp|
|00000310| 20 2a 6b 61 74 61 6b 61 | 6e 61 2d 61 6c 69 73 74 | *kataka|na-alist|
|00000320| 2a 20 28 28 31 36 31 20 | 2e 20 22 1b 29 49 a7 22 |* ((161 |. ".)I."|
|00000330| 29 20 28 31 36 32 20 2e | 20 22 b1 22 29 20 28 31 |) (162 .| ".") (1|
|00000340| 36 33 20 2e 20 22 a8 22 | 29 20 28 31 36 34 20 2e |63 . "."|) (164 .|
|00000350| 20 22 b2 22 29 20 28 31 | 36 35 20 2e 20 22 a9 22 | ".") (1|65 . "."|
|00000360| 29 20 28 31 36 36 20 2e | 20 22 b3 22 29 20 28 31 |) (166 .| ".") (1|
|00000370| 36 37 20 2e 20 22 aa 22 | 29 20 28 31 36 38 20 2e |67 . "."|) (168 .|
|00000380| 20 22 b4 22 29 20 28 31 | 36 39 20 2e 20 22 ab 22 | ".") (1|69 . "."|
|00000390| 29 20 28 31 37 30 20 2e | 20 22 b5 22 29 20 28 31 |) (170 .| ".") (1|
|000003a0| 37 31 20 2e 20 22 b6 22 | 29 20 28 31 37 32 20 2e |71 . "."|) (172 .|
|000003b0| 20 22 b6 de 22 29 20 28 | 31 37 33 20 2e 20 22 b7 | "..") (|173 . ".|
|000003c0| 22 29 20 28 31 37 34 20 | 2e 20 22 b7 de 22 29 20 |") (174 |. "..") |
|000003d0| 28 31 37 35 20 2e 20 22 | b8 22 29 20 28 31 37 36 |(175 . "|.") (176|
|000003e0| 20 2e 20 22 b8 de 22 29 | 20 28 31 37 37 20 2e 20 | . "..")| (177 . |
|000003f0| 22 b9 22 29 20 28 31 37 | 38 20 2e 20 22 b9 de 22 |".") (17|8 . ".."|
|00000400| 29 20 28 31 37 39 20 2e | 20 22 ba 22 29 20 28 31 |) (179 .| ".") (1|
|00000410| 38 30 20 2e 20 22 ba de | 22 29 20 28 31 38 31 20 |80 . "..|") (181 |
|00000420| 2e 20 22 bb 22 29 20 28 | 31 38 32 20 2e 20 22 bb |. ".") (|182 . ".|
|00000430| de 22 29 20 28 31 38 33 | 20 2e 20 22 bc 22 29 20 |.") (183| . ".") |
|00000440| 28 31 38 34 20 2e 20 22 | bc de 22 29 20 28 31 38 |(184 . "|..") (18|
|00000450| 35 20 2e 20 22 bd 22 29 | 20 28 31 38 36 20 2e 20 |5 . ".")| (186 . |
|00000460| 22 bd de 22 29 20 28 31 | 38 37 20 2e 20 22 be 22 |"..") (1|87 . "."|
|00000470| 29 20 28 31 38 38 20 2e | 20 22 be de 22 29 20 28 |) (188 .| "..") (|
|00000480| 31 38 39 20 2e 20 22 bf | 22 29 20 28 31 39 30 20 |189 . ".|") (190 |
|00000490| 2e 20 22 bf de 22 29 20 | 28 31 39 31 20 2e 20 22 |. "..") |(191 . "|
|000004a0| c0 22 29 20 28 31 39 32 | 20 2e 20 22 c0 de 22 29 |.") (192| . "..")|
|000004b0| 20 28 31 39 33 20 2e 20 | 22 c1 22 29 20 28 31 39 | (193 . |".") (19|
|000004c0| 34 20 2e 20 22 c1 de 22 | 29 20 28 31 39 35 20 2e |4 . ".."|) (195 .|
|000004d0| 20 22 af 22 29 20 28 31 | 39 36 20 2e 20 22 c2 22 | ".") (1|96 . "."|
|000004e0| 29 20 28 31 39 37 20 2e | 20 22 c2 de 22 29 20 28 |) (197 .| "..") (|
|000004f0| 31 39 38 20 2e 20 22 c3 | 22 29 20 28 31 39 39 20 |198 . ".|") (199 |
|00000500| 2e 20 22 c3 de 22 29 20 | 28 32 30 30 20 2e 20 22 |. "..") |(200 . "|
|00000510| c4 22 29 20 28 32 30 31 | 20 2e 20 22 c4 de 22 29 |.") (201| . "..")|
|00000520| 20 28 32 30 32 20 2e 20 | 22 c5 22 29 20 28 32 30 | (202 . |".") (20|
|00000530| 33 20 2e 20 22 c6 22 29 | 20 28 32 30 34 20 2e 20 |3 . ".")| (204 . |
|00000540| 22 c7 22 29 20 28 32 30 | 35 20 2e 20 22 c8 22 29 |".") (20|5 . ".")|
|00000550| 20 28 32 30 36 20 2e 20 | 22 c9 22 29 20 28 32 30 | (206 . |".") (20|
|00000560| 37 20 2e 20 22 ca 22 29 | 20 28 32 30 38 20 2e 20 |7 . ".")| (208 . |
|00000570| 22 ca de 22 29 20 28 32 | 30 39 20 2e 20 22 ca df |"..") (2|09 . "..|
|00000580| 22 29 20 28 32 31 30 20 | 2e 20 22 cb 22 29 20 28 |") (210 |. ".") (|
|00000590| 32 31 31 20 2e 20 22 cb | de 22 29 20 28 32 31 32 |211 . ".|.") (212|
|000005a0| 20 2e 20 22 cb df 22 29 | 20 28 32 31 33 20 2e 20 | . "..")| (213 . |
|000005b0| 22 cc 22 29 20 28 32 31 | 34 20 2e 20 22 cc de 22 |".") (21|4 . ".."|
|000005c0| 29 20 28 32 31 35 20 2e | 20 22 cc df 22 29 20 28 |) (215 .| "..") (|
|000005d0| 32 31 36 20 2e 20 22 cd | 22 29 20 28 32 31 37 20 |216 . ".|") (217 |
|000005e0| 2e 20 22 cd de 22 29 20 | 28 32 31 38 20 2e 20 22 |. "..") |(218 . "|
|000005f0| cd df 22 29 20 28 32 31 | 39 20 2e 20 22 ce 22 29 |..") (21|9 . ".")|
|00000600| 20 28 32 32 30 20 2e 20 | 22 ce de 22 29 20 28 32 | (220 . |"..") (2|
|00000610| 32 31 20 2e 20 22 ce df | 22 29 20 28 32 32 32 20 |21 . "..|") (222 |
|00000620| 2e 20 22 cf 22 29 20 28 | 32 32 33 20 2e 20 22 d0 |. ".") (|223 . ".|
|00000630| 22 29 20 28 32 32 34 20 | 2e 20 22 d1 22 29 20 28 |") (224 |. ".") (|
|00000640| 32 32 35 20 2e 20 22 d2 | 22 29 20 28 32 32 36 20 |225 . ".|") (226 |
|00000650| 2e 20 22 d3 22 29 20 28 | 32 32 37 20 2e 20 22 ac |. ".") (|227 . ".|
|00000660| 22 29 20 28 32 32 38 20 | 2e 20 22 d4 22 29 20 28 |") (228 |. ".") (|
|00000670| 32 32 39 20 2e 20 22 ad | 22 29 20 28 32 33 30 20 |229 . ".|") (230 |
|00000680| 2e 20 22 d5 22 29 20 28 | 32 33 31 20 2e 20 22 ae |. ".") (|231 . ".|
|00000690| 22 29 20 28 32 33 32 20 | 2e 20 22 d6 22 29 20 28 |") (232 |. ".") (|
|000006a0| 32 33 33 20 2e 20 22 d7 | 22 29 20 28 32 33 34 20 |233 . ".|") (234 |
|000006b0| 2e 20 22 d8 22 29 20 28 | 32 33 35 20 2e 20 22 d9 |. ".") (|235 . ".|
|000006c0| 22 29 20 28 32 33 36 20 | 2e 20 22 da 22 29 20 28 |") (236 |. ".") (|
|000006d0| 32 33 37 20 2e 20 22 db | 22 29 20 28 32 33 39 20 |237 . ".|") (239 |
|000006e0| 2e 20 22 dc 22 29 20 28 | 32 33 38 20 2e 20 22 dc |. ".") (|238 . ".|
|000006f0| 22 29 20 28 32 34 30 20 | 2e 20 22 a8 22 29 20 28 |") (240 |. ".") (|
|00000700| 32 34 31 20 2e 20 22 aa | 22 29 20 28 32 34 32 20 |241 . ".|") (242 |
|00000710| 2e 20 22 a6 22 29 20 28 | 32 34 33 20 2e 20 22 dd |. ".") (|243 . ".|
|00000720| 22 29 20 28 32 34 34 20 | 2e 20 22 b3 de 22 29 20 |") (244 |. "..") |
|00000730| 28 32 34 35 20 2e 20 22 | b6 22 29 20 28 32 34 36 |(245 . "|.") (246|
|00000740| 20 2e 20 22 b9 22 29 29 | 20 63 75 72 72 65 6e 74 | . "."))| current|
|00000750| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 2a 6b 61 74 61 |-load-li|st *kata|
|00000760| 6b 61 6e 61 2d 6b 69 67 | 6f 75 2d 61 6c 69 73 74 |kana-kig|ou-alist|
|00000770| 2a 20 28 28 31 36 32 20 | 2e 20 22 a4 22 29 20 28 |* ((162 |. ".") (|
|00000780| 31 36 33 20 2e 20 22 a1 | 22 29 20 28 31 36 36 20 |163 . ".|") (166 |
|00000790| 2e 20 22 a5 22 29 20 28 | 31 37 31 20 2e 20 22 de |. ".") (|171 . ".|
|000007a0| 22 29 20 28 31 37 32 20 | 2e 20 22 df 22 29 20 28 |") (172 |. ".") (|
|000007b0| 31 38 38 20 2e 20 22 b0 | 22 29 20 28 32 31 34 20 |188 . ".|") (214 |
|000007c0| 2e 20 22 a2 22 29 20 28 | 32 31 35 20 2e 20 22 a3 |. ".") (|215 . ".|
|000007d0| 22 29 29 20 2a 64 61 6b | 75 6f 6e 2d 6c 69 73 74 |")) *dak|uon-list|
|000007e0| 2a 20 28 3f 1b 24 28 42 | 25 2b 1b 28 42 20 3f 1b |* (?.$(B|%+.(B ?.|
|000007f0| 24 28 42 25 2d 1b 28 42 | 20 3f 1b 24 28 42 25 2f |$(B%-.(B| ?.$(B%/|
|00000800| 1b 28 42 20 3f 1b 24 28 | 42 25 31 1b 28 42 20 3f |.(B ?.$(|B%1.(B ?|
|00000810| 1b 24 28 42 25 33 1b 28 | 42 20 3f 1b 24 28 42 25 |.$(B%3.(|B ?.$(B%|
|00000820| 35 1b 28 42 20 3f 1b 24 | 28 42 25 37 1b 28 42 20 |5.(B ?.$|(B%7.(B |
|00000830| 3f 1b 24 28 42 25 39 1b | 28 42 20 3f 1b 24 28 42 |?.$(B%9.|(B ?.$(B|
|00000840| 25 3b 1b 28 42 20 3f 1b | 24 28 42 25 3d 1b 28 42 |%;.(B ?.|$(B%=.(B|
|00000850| 20 3f 1b 24 28 42 25 3f | 1b 28 42 20 3f 1b 24 28 | ?.$(B%?|.(B ?.$(|
|00000860| 42 25 41 1b 28 42 20 3f | 1b 24 28 42 25 44 1b 28 |B%A.(B ?|.$(B%D.(|
|00000870| 42 20 3f 1b 24 28 42 25 | 46 1b 28 42 20 3f 1b 24 |B ?.$(B%|F.(B ?.$|
|00000880| 28 42 25 48 1b 28 42 20 | 3f 1b 24 28 42 25 4f 1b |(B%H.(B |?.$(B%O.|
|00000890| 28 42 20 3f 1b 24 28 42 | 25 52 1b 28 42 20 3f 1b |(B ?.$(B|%R.(B ?.|
|000008a0| 24 28 42 25 55 1b 28 42 | 20 3f 1b 24 28 42 25 58 |$(B%U.(B| ?.$(B%X|
|000008b0| 1b 28 42 20 3f 1b 24 28 | 42 25 5b 1b 28 42 29 20 |.(B ?.$(|B%[.(B) |
|000008c0| 2a 68 61 6e 64 61 6b 75 | 6f 6e 2d 6c 69 73 74 2a |*handaku|on-list*|
|000008d0| 20 3f 1b 24 28 42 25 4f | 1b 28 42 5d 20 32 29 1b | ?.$(B%O|.(B] 2).|
|000008e0| 2d 41 0a 28 64 65 66 61 | 6c 69 61 73 20 27 68 61 |-A.(defa|lias 'ha|
|000008f0| 6e 6b 61 6b 75 2d 6b 61 | 74 61 6b 61 6e 61 2d 72 |nkaku-ka|takana-r|
|00000900| 65 67 69 6f 6e 20 23 5b | 28 73 74 61 72 74 20 65 |egion #[|(start e|
|00000910| 6e 64 20 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |nd &opti|onal arg|
|00000920| 29 20 22 8c 08 09 7d 88 | 65 62 88 5c 6e ab 83 c3 |) "...}.|eb.\n...|
|00000930| aa 81 c4 1d c6 0d 64 64 | 23 ad d1 c7 c8 20 21 89 |......dd|#.... !.|
|00000940| 1e 09 ca a5 1e 0b cc 1b | 0e 09 ca 5c 22 1e 0d 1b |........|...\"...|
|00000950| 0e 0b ce 55 ab 96 1b 0e | 0d 1b 0e 1b 0f b7 41 89 |...U....|......A.|
|00000960| 1e 10 ab 88 d1 d2 21 88 | 1b 0e 10 63 88 29 aa a0 |......!.|...c.)..|
|00000970| 1b 0e 0b d3 55 ac 9a 1b | 0e 0b d4 55 ac 94 1b 0e |....U...|...U....|
|00000980| 0d 1b 0e 15 b7 41 89 1e | 10 ab 88 d1 d2 21 88 1b |.....A..|.....!..|
|00000990| 0e 10 63 88 29 2b aa 28 | 2a 87 22 20 5b 73 74 61 |..c.)+.(|*." [sta|
|000009a0| 72 74 20 65 6e 64 20 61 | 72 67 20 22 5c 5c 63 53 |rt end a|rg "\\cS|
|000009b0| 5c 5c 7c 5c 5c 63 4b 5c | 5c 7c 5c 5c 63 48 22 20 |\\|\\cK\|\|\\cH" |
|000009c0| 22 5c 5c 63 53 5c 5c 7c | 5c 5c 63 4b 22 20 72 65 |"\\cS\\||\\cK" re|
|000009d0| 67 65 78 70 20 72 65 2d | 73 65 61 72 63 68 2d 66 |gexp re-|search-f|
|000009e0| 6f 72 77 61 72 64 20 63 | 68 61 72 2d 74 6f 2d 69 |orward c|har-to-i|
|000009f0| 6e 74 20 63 68 61 72 2d | 62 65 66 6f 72 65 20 63 |nt char-|before c|
|00000a00| 68 20 32 35 36 20 63 68 | 31 20 6d 6f 64 20 63 68 |h 256 ch|1 mod ch|
|00000a10| 32 20 32 30 38 20 2a 6b | 61 74 61 6b 61 6e 61 2d |2 208 *k|atakana-|
|00000a20| 6b 69 67 6f 75 2d 61 6c | 69 73 74 2a 20 76 61 6c |kigou-al|ist* val|
|00000a30| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 2d 31 20 | delete-|char -1 |
|00000a40| 32 30 39 20 32 31 35 20 | 2a 6b 61 74 61 6b 61 6e |209 215 |*katakan|
|00000a50| 61 2d 61 6c 69 73 74 2a | 5d 20 35 20 6e 69 6c 20 |a-alist*|] 5 nil |
|00000a60| 22 72 5c 6e 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |"r\nP"])|.(defali|
|00000a70| 61 73 20 27 68 61 6e 6b | 61 6b 75 2d 6b 61 74 61 |as 'hank|aku-kata|
|00000a80| 6b 61 6e 61 2d 70 61 72 | 61 67 72 61 70 68 20 23 |kana-par|agraph #|
|00000a90| 5b 6e 69 6c 20 22 8a c0 | 20 88 60 19 c2 20 88 c3 |[nil "..| .`.. ..|
|00000aa0| 60 09 5c 22 2a 87 22 20 | 5b 66 6f 72 77 61 72 64 |`.\"*." |[forward|
|00000ab0| 2d 70 61 72 61 67 72 61 | 70 68 20 65 6e 64 20 62 |-paragra|ph end b|
|00000ac0| 61 63 6b 77 61 72 64 2d | 70 61 72 61 67 72 61 70 |ackward-|paragrap|
|00000ad0| 68 20 68 61 6e 6b 61 6b | 75 2d 6b 61 74 61 6b 61 |h hankak|u-kataka|
|00000ae0| 6e 61 2d 72 65 67 69 6f | 6e 5d 20 33 20 22 5c 0a |na-regio|n] 3 "\.|
|00000af0| 68 61 6e 6b 61 6b 75 2d | 6b 61 74 61 6b 61 6e 61 |hankaku-|katakana|
|00000b00| 20 70 61 72 61 67 72 61 | 70 68 20 61 74 20 6f 72 | paragra|ph at or|
|00000b10| 20 61 66 74 65 72 20 70 | 6f 69 6e 74 2e 22 20 6e | after p|oint." n|
|00000b20| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00000b30| 68 61 6e 6b 61 6b 75 2d | 6b 61 74 61 6b 61 6e 61 |hankaku-|katakana|
|00000b40| 2d 73 65 6e 74 65 6e 63 | 65 20 23 5b 6e 69 6c 20 |-sentenc|e #[nil |
|00000b50| 22 8a c0 20 88 60 19 c2 | 20 88 c3 60 09 5c 22 2a |".. .`..| ..`.\"*|
|00000b60| 87 22 20 5b 66 6f 72 77 | 61 72 64 2d 73 65 6e 74 |." [forw|ard-sent|
|00000b70| 65 6e 63 65 20 65 6e 64 | 20 62 61 63 6b 77 61 72 |ence end| backwar|
|00000b80| 64 2d 73 65 6e 74 65 6e | 63 65 20 68 61 6e 6b 61 |d-senten|ce hanka|
|00000b90| 6b 75 2d 6b 61 74 61 6b | 61 6e 61 2d 72 65 67 69 |ku-katak|ana-regi|
|00000ba0| 6f 6e 5d 20 33 20 22 5c | 0a 68 61 6e 6b 61 6b 75 |on] 3 "\|.hankaku|
|00000bb0| 2d 6b 61 74 61 6e 61 6b | 61 20 73 65 6e 74 65 6e |-katanak|a senten|
|00000bc0| 63 65 20 61 74 20 6f 72 | 20 61 66 74 65 72 20 70 |ce at or| after p|
|00000bd0| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |oint." n|il]).(de|
|00000be0| 66 61 6c 69 61 73 20 27 | 68 61 6e 6b 61 6b 75 2d |falias '|hankaku-|
|00000bf0| 6b 61 74 61 6b 61 6e 61 | 2d 77 6f 72 64 20 23 5b |katakana|-word #[|
|00000c00| 28 61 72 67 29 20 22 60 | 18 09 76 88 c2 08 60 5c |(arg) "`|..v...`\|
|00000c10| 22 29 87 22 20 5b 73 74 | 61 72 74 20 61 72 67 20 |")." [st|art arg |
|00000c20| 68 61 6e 6b 61 6b 75 2d | 6b 61 74 61 6b 61 6e 61 |hankaku-|katakana|
|00000c30| 2d 72 65 67 69 6f 6e 5d | 20 33 20 6e 69 6c 20 22 |-region]| 3 nil "|
|00000c40| 70 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |p"]).(de|falias '|
|00000c50| 73 65 61 72 63 68 2d 68 | 65 6e 6b 61 6e 2d 61 6c |search-h|enkan-al|
|00000c60| 69 73 74 20 23 5b 28 63 | 68 20 6c 69 73 74 29 20 |ist #[(c|h list) |
|00000c70| 22 08 c1 1a 89 1b 1b ab | 96 0c 0b 40 41 98 ab 89 |".......|...@A...|
|00000c80| 0b 40 40 12 c1 89 13 aa | 6e 0b 41 89 13 ac 6a 5c |.@@.....|n.A...j\|
|00000c90| 6e 2a 87 22 20 5b 6c 69 | 73 74 20 6e 69 6c 20 72 |n*." [li|st nil r|
|00000ca0| 65 73 75 6c 74 20 70 74 | 72 20 63 68 5d 20 33 5d |esult pt|r ch] 3]|
|00000cb0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 7a 65 6e |).(defal|ias 'zen|
|00000cc0| 6b 61 6b 75 2d 6b 61 74 | 61 6b 61 6e 61 2d 72 65 |kaku-kat|akana-re|
|00000cd0| 67 69 6f 6e 20 23 5b 28 | 73 74 61 72 74 20 65 6e |gion #[(|start en|
|00000ce0| 64 29 20 22 8c 08 09 7d | 88 65 62 88 c2 c3 64 64 |d) "...}|.eb...dd|
|00000cf0| 23 85 af 00 68 c4 1d 89 | 1e 06 c7 55 ab b2 8a c8 |#...h...|...U....|
|00000d00| c9 21 88 68 15 29 0d ca | 55 ab 89 cb cc 21 88 cd |.!.h.)..|U....!..|
|00000d10| 63 88 aa fb 0d 1b 0e 1b | 0e 73 89 15 ab 8b cb cc |c.......|.s......|
|00000d20| 21 88 0d 40 54 63 88 aa | e8 cb cf 21 88 d0 63 88 |!..@Tc..|...!..c.|
|00000d30| aa df 1b 0e 06 d1 55 ab | a5 8a c8 c9 21 88 68 15 |......U.|....!.h.|
|00000d40| 29 0d 1b 0e 12 73 89 15 | ab 8c cb cc 21 88 0d 40 |)....s..|....!..@|
|00000d50| d3 5c 5c 63 88 aa bd cb | cf 21 88 d4 63 88 aa b4 |.\\c....|.!..c...|
|00000d60| d5 d6 1b 0e 06 21 1b 0e | 17 5c 22 89 15 ab 8f cb |.....!..|.\".....|
|00000d70| cf 21 88 d8 d9 da 0d db | 5a 23 63 88 aa 99 d5 d6 |.!......|Z#c.....|
|00000d80| 1b 0e 06 21 1b 0e 1c 5c | 22 89 15 ab 8d cb cf 21 |...!...\|"......!|
|00000d90| 88 d8 d9 dd 0d db 5a 23 | 63 88 2a 82 08 00 29 87 |......Z#|c.*...).|
|00000da0| 22 20 5b 73 74 61 72 74 | 20 65 6e 64 20 72 65 2d |" [start| end re-|
|00000db0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000dc0| 5c 5c 63 6b 22 20 6e 69 | 6c 20 77 6b 20 63 68 20 |\\ck" ni|l wk ch |
|00000dd0| 3f 1b 29 49 de 20 62 61 | 63 6b 77 61 72 64 2d 63 |?.)I. ba|ckward-c|
|00000de0| 68 61 72 20 31 20 3f 1b | 24 28 42 25 26 1b 28 42 |har 1 ?.|$(B%&.(B|
|00000df0| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 2d 32 20 | delete-|char -2 |
|00000e00| 22 1b 24 28 42 25 74 1b | 28 42 22 20 2a 64 61 6b |".$(B%t.|(B" *dak|
|00000e10| 75 6f 6e 2d 6c 69 73 74 | 2a 20 2d 31 20 22 1b 24 |uon-list|* -1 ".$|
|00000e20| 28 42 21 2b 1b 28 42 22 | 20 3f df 20 2a 68 61 6e |(B!+.(B"| ?. *han|
|00000e30| 64 61 6b 75 6f 6e 2d 6c | 69 73 74 2a 20 32 20 22 |dakuon-l|ist* 2 "|
|00000e40| 1b 24 28 42 21 2c 1b 28 | 42 22 20 73 65 61 72 63 |.$(B!,.(|B" searc|
|00000e50| 68 2d 68 65 6e 6b 61 6e | 2d 61 6c 69 73 74 20 63 |h-henkan|-alist c|
|00000e60| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 2a 6b |har-to-s|tring *k|
|00000e70| 61 74 61 6b 61 6e 61 2d | 61 6c 69 73 74 2a 20 6d |atakana-|alist* m|
|00000e80| 61 6b 65 2d 63 68 61 72 | 20 6a 61 70 61 6e 65 73 |ake-char| japanes|
|00000e90| 65 2d 6a 69 73 78 30 32 | 30 38 20 33 37 20 31 32 |e-jisx02|08 37 12|
|00000ea0| 38 20 2a 6b 61 74 61 6b | 61 6e 61 2d 6b 69 67 6f |8 *katak|ana-kigo|
|00000eb0| 75 2d 61 6c 69 73 74 2a | 20 33 33 5d 20 36 20 6e |u-alist*| 33] 6 n|
|00000ec0| 69 6c 20 22 72 22 5d 29 | 1b 2d 41 0a 28 64 65 66 |il "r"])|.-A.(def|
|00000ed0| 61 6c 69 61 73 20 27 7a | 65 6e 6b 61 6b 75 2d 6b |alias 'z|enkaku-k|
|00000ee0| 61 74 61 6b 61 6e 61 2d | 70 61 72 61 67 72 61 70 |atakana-|paragrap|
|00000ef0| 68 20 23 5b 6e 69 6c 20 | 22 8a c0 20 88 60 19 c2 |h #[nil |".. .`..|
|00000f00| 20 88 c3 60 09 5c 22 2a | 87 22 20 5b 66 6f 72 77 | ..`.\"*|." [forw|
|00000f10| 61 72 64 2d 70 61 72 61 | 67 72 61 70 68 20 65 6e |ard-para|graph en|
|00000f20| 64 20 62 61 63 6b 77 61 | 72 64 2d 70 61 72 61 67 |d backwa|rd-parag|
|00000f30| 72 61 70 68 20 7a 65 6e | 6b 61 6b 75 2d 6b 61 74 |raph zen|kaku-kat|
|00000f40| 61 6b 61 6e 61 2d 72 65 | 67 69 6f 6e 5d 20 33 20 |akana-re|gion] 3 |
|00000f50| 22 5c 0a 7a 65 6e 6b 61 | 6b 75 2d 6b 61 74 61 6b |"\.zenka|ku-katak|
|00000f60| 61 6e 61 20 70 61 72 61 | 67 72 61 70 68 20 61 74 |ana para|graph at|
|00000f70| 20 6f 72 20 61 66 74 65 | 72 20 70 6f 69 6e 74 2e | or afte|r point.|
|00000f80| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00000f90| 73 20 27 7a 65 6e 6b 61 | 6b 75 2d 6b 61 74 61 6b |s 'zenka|ku-katak|
|00000fa0| 61 6e 61 2d 73 65 6e 74 | 65 6e 63 65 20 23 5b 6e |ana-sent|ence #[n|
|00000fb0| 69 6c 20 22 8a c0 20 88 | 60 19 c2 20 88 c3 60 09 |il ".. .|`.. ..`.|
|00000fc0| 5c 22 2a 87 22 20 5b 66 | 6f 72 77 61 72 64 2d 73 |\"*." [f|orward-s|
|00000fd0| 65 6e 74 65 6e 63 65 20 | 65 6e 64 20 62 61 63 6b |entence |end back|
|00000fe0| 77 61 72 64 2d 73 65 6e | 74 65 6e 63 65 20 7a 65 |ward-sen|tence ze|
|00000ff0| 6e 6b 61 6b 75 2d 6b 61 | 74 61 6b 61 6e 61 2d 72 |nkaku-ka|takana-r|
|00001000| 65 67 69 6f 6e 5d 20 33 | 20 22 5c 0a 7a 65 6e 6b |egion] 3| "\.zenk|
|00001010| 61 6b 75 2d 6b 61 74 61 | 6b 61 6e 61 20 73 65 6e |aku-kata|kana sen|
|00001020| 74 65 6e 63 65 20 61 74 | 20 6f 72 20 61 66 74 65 |tence at| or afte|
|00001030| 72 20 70 6f 69 6e 74 2e | 22 20 6e 69 6c 5d 29 0a |r point.|" nil]).|
|00001040| 28 64 65 66 61 6c 69 61 | 73 20 27 7a 65 6e 6b 61 |(defalia|s 'zenka|
|00001050| 6b 75 2d 6b 61 74 61 6b | 61 6e 61 2d 77 6f 72 64 |ku-katak|ana-word|
|00001060| 20 23 5b 28 61 72 67 29 | 20 22 60 18 09 76 88 c2 | #[(arg)| "`..v..|
|00001070| 08 60 5c 22 29 87 22 20 | 5b 73 74 61 72 74 20 61 |.`\")." |[start a|
|00001080| 72 67 20 7a 65 6e 6b 61 | 6b 75 2d 6b 61 74 61 6b |rg zenka|ku-katak|
|00001090| 61 6e 61 2d 72 65 67 69 | 6f 6e 5d 20 33 20 6e 69 |ana-regi|on] 3 ni|
|000010a0| 6c 20 22 70 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |l "p"]).|(defalia|
|000010b0| 73 20 27 66 65 6e 63 65 | 2d 68 61 6e 6b 61 6b 75 |s 'fence|-hankaku|
|000010c0| 2d 6b 61 74 61 6b 61 6e | 61 20 23 5b 6e 69 6c 20 |-katakan|a #[nil |
|000010d0| 22 c0 09 5c 6e c3 23 87 | 22 20 5b 68 61 6e 6b 61 |"..\n.#.|" [hanka|
|000010e0| 6b 75 2d 6b 61 74 61 6b | 61 6e 61 2d 72 65 67 69 |ku-katak|ana-regi|
|000010f0| 6f 6e 20 65 67 67 3a 2a | 72 65 67 69 6f 6e 2d 73 |on egg:*|region-s|
|00001100| 74 61 72 74 2a 20 65 67 | 67 3a 2a 72 65 67 69 6f |tart* eg|g:*regio|
|00001110| 6e 2d 65 6e 64 2a 20 74 | 5d 20 34 20 6e 69 6c 20 |n-end* t|] 4 nil |
|00001120| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001130| 27 66 65 6e 63 65 2d 6b | 61 74 61 6b 61 6e 61 20 |'fence-k|atakana |
|00001140| 23 5b 6e 69 6c 20 22 c0 | 09 5c 6e 5c 22 88 c3 09 |#[nil ".|.\n\"...|
|00001150| 5c 6e 5c 22 87 22 20 5b | 7a 65 6e 6b 61 6b 75 2d |\n\"." [|zenkaku-|
|00001160| 6b 61 74 61 6b 61 6e 61 | 2d 72 65 67 69 6f 6e 20 |katakana|-region |
|00001170| 65 67 67 3a 2a 72 65 67 | 69 6f 6e 2d 73 74 61 72 |egg:*reg|ion-star|
|00001180| 74 2a 20 65 67 67 3a 2a | 72 65 67 69 6f 6e 2d 65 |t* egg:*|region-e|
|00001190| 6e 64 2a 20 6b 61 74 61 | 6b 61 6e 61 2d 72 65 67 |nd* kata|kana-reg|
|000011a0| 69 6f 6e 5d 20 33 20 6e | 69 6c 20 6e 69 6c 5d 29 |ion] 3 n|il nil])|
|000011b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 65 6e 63 |.(defali|as 'fenc|
|000011c0| 65 2d 68 69 72 61 67 61 | 6e 61 20 23 5b 6e 69 6c |e-hiraga|na #[nil|
|000011d0| 20 22 c0 09 5c 6e 5c 22 | 88 c3 09 5c 6e 5c 22 87 | "..\n\"|...\n\".|
|000011e0| 22 20 5b 7a 65 6e 6b 61 | 6b 75 2d 6b 61 74 61 6b |" [zenka|ku-katak|
|000011f0| 61 6e 61 2d 72 65 67 69 | 6f 6e 20 65 67 67 3a 2a |ana-regi|on egg:*|
|00001200| 72 65 67 69 6f 6e 2d 73 | 74 61 72 74 2a 20 65 67 |region-s|tart* eg|
|00001210| 67 3a 2a 72 65 67 69 6f | 6e 2d 65 6e 64 2a 20 68 |g:*regio|n-end* h|
|00001220| 69 72 61 67 61 6e 61 2d | 72 65 67 69 6f 6e 5d 20 |iragana-|region] |
|00001230| 33 20 6e 69 6c 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |3 nil ni|l]).(def|
|00001240| 69 6e 65 2d 6b 65 79 20 | 66 65 6e 63 65 2d 6d 6f |ine-key |fence-mo|
|00001250| 64 65 2d 6d 61 70 20 22 | 1b 1b 78 22 20 27 66 65 |de-map "|..x" 'fe|
|00001260| 6e 63 65 2d 68 61 6e 6b | 61 6b 75 2d 6b 61 74 61 |nce-hank|aku-kata|
|00001270| 6b 61 6e 61 29 0a       |                         |kana).  |        |
+--------+-------------------------+-------------------------+--------+--------+